****** Duties and Defacto Rights  ****** 
	
	
****** Figure 7A: Rights and Protecting Human Rights - 2017 ****** 
use "Data_Duties_Master.dta", clear


tab year if polity2!=.  & duties_total!=. & year==2017

corr polity2 duties_total  if duties_total!=.  & year==2017 


binscatter  polity2  duties_total if duties_total!=. & year==2017,  n(20)  msymbol(O) mcolors(orange) lcolors(orange) ///
	ytitle("Polity Score", size(medium)) ///
	xtitle("# of Duties", size(medium)) ///
	xsize(1) ysize(1) legend(off) xlabel(0(3)15 ) ylabel(-10(2.5)10) ///
	scheme(s1mono) yscale(noextend) xscale(	noextend)plotregion(style(none)) 	
	
graph export "Figure_7A.pdf", replace	

****** Figure 7B: Duties and Protecting Human Rights - All Years ****** 
use "Data_Duties_Master.dta", clear

tab year if polity2!=.  & duties_total!=. 

corr polity2 duties_total  if duties_total!=.  & year<2018 


	binscatter  polity2 duties_total if duties_total!=. & year<2018,  n(20)  msymbol(O) mcolors(purple) lcolors(purple) ///
	ytitle("Polity Score", size(medium)) ///
	xtitle("# of Duties", size(medium)) ///
	xsize(1) ysize(1) legend(off) xlabel(0(3)15 ) ylabel(-10(2.5)10) ///
	scheme(s1mono) yscale(noextend) xscale(	noextend)plotregion(style(none)) 	
	
	
graph export "Figure_7B.pdf", replace	
